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MOD BSGETDVI ( &TIT i 
ULE LIBSGE [bent te oss! Device/V @! 
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1-003 - Change oon aadl to 512. SBL 11-Mar-1983 


00 

00 

00 

00 

00 '¢ 

00 ! 

003 ! 

O08 ABSTRACT: 

$03 i LIBSGETDVI obtains a specified item of Device/Volume 

it : and formats it in an appropriate manner. 

003 ENVIRONMENT: User mode - AST reentrant 

904 AUTHOR: Steven B. Lionel, CREATION DATE: 11-Jan-1983 

004 MODIFIED BY: 

004 i 1-004 - Original. SBL 11-Jan-1983 

4 ! 1-002 - ianst MAX soraet 3 ,. to LIBSK Change string Length from 

S (252) to LNMS SAARLENIGTH (255). 11-Mar-1983 
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SSBTTL "Declarations' 


PROLOGUE FILE: 
REQUIRE ‘RTLIN:LIBPROLOG'; ! Switches, PSECTS, macros 


! 

i LINKAGES: 
; NONE 
4 
1 


i TABLE OF CONTENTS: 


FORWARD ROUTINE 


FUN SSSIEALER IS Sale 


1 
1 
1 
1 
¢ 1 
| 
3 
1 8 1 
150 1 
| 
i 
135 1 
1 § 1 LIBSGETDVI; ! Get Device/Volume Information 
ae 
sf : MACROS: 
123 : : NONE 
o148 1 | EQUATED SYMBOLS: 
75 144 1! 
5 oie | | —_ 
78 149 1 ' FIELDS: 
79 bie5 1! 
DATE Tcl 
ge 013) ; OWN STORAGE: 
1 5 1 NONE 
Bs 13 1 | 
155 1 ! EXTERNALS: 
BRB 
89 158 1 EXTERNA oe 
90 159 1 LIBSSGETDVI, ! In ternal routine 
91 160 1 LIBSANALYZE_SDESC_R2: LIBSANALYZE_SDESC -R2SLINKAGE, ! Get length and pointer 
4 161 1 mitt ET EF, ' Allocate event lag number 
9 168 1 LIBSFREE EF: NOVA ! Free event flag number 
34 163 LIBSSCOPY_R_DX6: tL TE$SCOPY _R_DX6SLINKAGE; ! Copy string by reference. 
38 165 1 ExT eres IN .rene 
9 166 1 LIB ' Invalid argument 
98 167 1 LiBs- “STRAUS ! String truncated 
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4185 SGETDVI = Get Device/Volume Information 1 mt 99:35:88 ATARTL SREILESGL TOG] 68251 . (33 
ZSBTTL ‘LIBSGETDVI = Get Device/Volume Information’ 
CLOSA, ROUTINE LIBSGETDVI é 
ITEM CODE: REF VECTOR L, WORD), ! Code of desired item 
CHANNEL: REF VECTOR C, WORD) ' Channel number 
DEVICE_NAME: REF BLOCK C, BYTE], | Device name 
OUT_VACUE: REF VECTOR fF. LONGI, ! Output numeric value 
OUT_STRING: REF BLOCK L, BYTEJ, ! Output string descriptor 
BUT LEN: REF VECTOR C, WORD) ! Output string length 


le 


i FUNCTIONAL DESCRIPTION: 


LIBSGETDVI provides a simplified interface to the SGETDVI system 
service. It returns information about an I/0 device. e 
calling process does not have to have a channel assigned to the 
device. Two categories of information can be returned: 


MEW OC OONAOULS UW" 00M 


o The primary device characteristics. 
o The secondary device characteristics. 


LIBSGETDVI provides the following features in addition to those 
provided by the SGETDVI system service: 


Ooo 


Dt hat try te eet PRN RP WS % oe 


o Instead of a list of item descriptors, which may be 
difficult to construct in gighoneve Languages. the 
single item desired is specified as an integer code 
which is passed by reference. Results are written to 
separate arguments. 


o For items which return numeric values, LIBSGETDV] can 
opttonetly provide a formatted string interpretation of 
the value. or example, if the device owner UIC is 
requested. LIBSGETDVI can return the UIC formatted as 

om)". 
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o For string arguments, all os classes supported by 
the Run-Time Library are understood. 


o Calls to LIBSGETDVI are synchronous; LIBSGETDVI calls 
LIBSGET_ to allocate a local event flag number for 
synchronization. 


LIBSGETDVI does not provide the ability to obtain more than one 
item of information in a single call. 


CALLING SEQUENCE: 


ret-status.wic.v = LIBSGETDVI ( 
item-code.rw.r, 
channel.rw.rd, 
device-name.rt.dx], 
* fout-string. 


out-string.wt.dx 
surckenument J)) 
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-32 
LIBGETDVI .8352;1 (3) 


oc 


L188 Tovl 


out-Llen 
A word integer into which is placed the number of significant 
characters written to out-string, not including blank padding 
or truncated characters. 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


ROROPOROPOROROROPORORORORORORORORD 
NNN MIO 
Sao IFN SSS SF 


vic 
L TOV 

J ! . « 
; 135 é ! FORMAL PARAMETERS: : 
3 3 1! item-code 3 
; 160 8 1: A longword integer item identifier code tha spect ites which item ; 
3; 161 1! of information you ere re yest ing. ALL valid SGETDVI item codes, : 
; 196 , : : whose names begin with DVI$_, are accepted. ‘ 
; 182 § 1 ' channel ; 
; 165 1: A songuare integer specifying the VMS 1/0 channel assigned to 5 
3 166 1! the device for which information is to be returned. If not : 
; 16 ak specified, device-name is used instead. You must. specify : 
3 198 $ 1! either channel or device-name, but not both. If both or 3 
3 1 1! neither are specified, the error status SS$_IVDEVNAM is 3 
3 1 : ! returned. : 
: 1% 40 1! device-name : 
3 (17 41 1! A string specifying the name of the device for which : 
: 174 0 g information is to be returned. The string may be either a F 
; 175 8 45 1! physical device name or a logical name. if the strin 3 
; 176 44 1! contains a colon, the colon and the characters that follow i F 
; 17 0245 1! are ignored. If the first character in the string is an $ 
; 178 re +! underscore character (_ the name is considered a physical . 
3; 179 or 37 device name. Otherwise, the name is considered a Logical name 3 
; 180 48 1! and logical name translation is performed until either a 3 
> «(181 0249 1! physical device name is found or the system default number of 3 
: ise 8 9 : translations has been performed. : 
: 184 53 1 i If not specified, channel is used instead. You must. specify : 
3; «6185 55 1! either channel or device-name, but not both. oth or 3 
3 136 8 54 1! neither are specified, the error status SSS$_IVDEVNAM is : 
: Ht 2? : returned. : 
: 189 0 3$ 1 ' out-value ; 
: 190 8 1! A longword or quadword into which is placed the numeric : 
; «6191 539 1! value of the information requested. If an item only returns é 
: 136 $ } : a string value, this parameter is ignored. : 
3 194 6¢ 1! out-string : 
3; 6195 65 1! A string into which is placed the string representation of : 
3 13%6 0 1! the information requested. If out-string is not specified, 3 
; 19 0 1! and the value returned has only a string representation, the é 
3 138 ' : error status LIBS_INVARG is returned. . 
; 1! ; 
. t . 
2) ii 
i ie ' : 
: 205 1} ; 
1 i 
; 08 1} ; 
: 209 1! 3 
: 10 1! 3 
£ $43 1 i 
; ig 1 ; 


1 TOvl Get Device/Volume Information 1b-5e Sep-1984 AX-11 Bliss-32 V4.0-7 Page 5 1 
hth LIBSGETDVI - Get Device/Volume Information at 7 99: 38: 8 LIBRTL.SR ROIL IBGETDVI. 3 2:1 ° (3) “ 
: 216 1! 

; 215 4 1 / SS$_NORMAL Normal successful completion 

; 18 1) LIBS_STRTRU String truncated. y s is an alternate success status. 
; (i 5 1: LIBS_INSEF Insuf sctont event fla bags 

; 218 : 1/ LIBS_INVSTRDES Invalid string descrip = 

3 2 1/ LIBS_WRONUMARG Wrong number of argument 

$ 88 1 LIBS_ xxx Any error status from L1BSSCOPY_ R_DXx 

: 1 89 1! SS$_BADPARAM The item code is not recognized as valid. 
: ¢ $s : SS$_xxx Any error status from $GETDVI 

: 4 3 SIDE EFFECTS: 

; 9% 1! NONE 

: 8532 13 

3 8 9% 1 i- 
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eit IBSGETDVI = Get Device/Volume Information 12-868-1382 99:38:48 CTBRTL SREM 18Ge TOVI -682s1 cht (a8 
4 ‘ BEGIN 
LOCAL ’ 


LSTRING: VECTOR (512, BYTE), 
“LENGTH: WORD 

NUMBER: VECTOR C2, LONG), 

D 


YPE 
EVNAM_DSC: BLOCK (8, BYTE), 
DSC"ADR 


Local string for value 

Length of RET_STRING 

Local quadword for value 

Returned type code 

Local descriptor for DEVNAM 

Address of DEVNAM descriptor 
FLAG, ! Event flag number 

USTATUS, EF_STATUS, DVI_STATUS, COPY_STATUS; ! Return statuses 


Wry 


COOCOO0OO W@W 


ARanv ooo bad 


oo 


WN OS CONAUFSUN —O OONOULS WN OC@ 


BUILTIN 
NULLPARAME TER; 


1+ 
Validate argument count. 


SLIBSVALIDATE_ARGCOUNT (4,6); 

1+ 

Build static descriptor for DEVICE_NAME, if any. 
if NULLPARAMETER (3) 


DEVNAM_DSC_ADR = 0 ! Omitted 25 
ELSE ‘ 


foal alo al *ahval alah al ab val ah al al tal oe ae oe et oP oP oP oF oe oy 


o 


ICE_RAME (0,0,0,0) 
VNAM_DSC CD CDSCSA 


LC 

LC 

ST 

LCL. £ POINTER)); 

IF NOT .STR_STATUS 

TH 

DE 

EN 


RETURN .STR_STATUS; 
NAM_DSC_ADR = LCL_DEVNAM_DSC; 


rs 


PIPPI IPOPIPIPIPINYINININIMIAIPINININI HAMANN ANNI PIPIPIPIPIPONIPIPIPIPYIPIPIPIPUPIMAIPIAIPUIPIPIPINIPINAINY — 1 


'¢ 
: Allocate an event flag number to use for the $GETDVI. 


NNO 


WAN 


IF"NOT .EF_STATUS 
RETURN .EF_STATUS; 


'¢ 
: Call LIBSS$GETDVI to do the work. 


DVI_STATUS = LIBS$GETDVI ¢ 
ITEM CODE COI, 
RET_STRING, 
RET~NUMBER, 


Be Se Se Se Se Se Se Ge Ge Ge Ge Se Se Se Ge Ge Se Fe Ge Ge Se Fs Se Ge Ge Ge Fe Fe Ge Se Ge Se Ss Ge Se Fe Se Se Ge Se Se Se Ge Se Sees Se Se Se SeSe Sess Se Setesg 
oe POPOPOPORINIPIPUPININPININIPINPINIPONOPOPUNYD 
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RARGN 


PohoRofonoNonororononononorunony 
NN ~N 
SSSaNouUrUN—oO 
CSOSSSOSOOSCOOOSOOOSOO 
PEERS 
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EF_STATUS = LIBSGET_EF (EVENT_FLAG); 
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IBSGETDVI Get Device/Volume Information 16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-74 P 7 
eth LIBSGETDVI = Get Device/Volume Information 13-808= 1382 99:38:58 UYARTL SREN 1eGe Tov1 69251 7 
: 287 4 RET LENGTH, 
; RET“ TYPE, 
- $ EVENT _FLAG 
; 290 (IF NUCLPARAMETER (2) THEN 0 ELSE .CHANNEL (0]), 
; 31 8 .DEVNAM_DSC_ADR) ; 
: 38 60 rs 
: 32 63 j free the event flag. 
; 37 4 LIBSFREE_EF (EVENT_FLAG); 
; 39 6g 1+ 
; 4 0 ' Check for errors. 
; 91 8 ie 
; 08 0 19 IF NOT .DVI_STATUS 
: 305 7 RETURN .DVI_STATUS; 
a bee ee 
: 08 pare i Copy the numeric value, if desired. 
Ho wg 
>: 311 378 IF OUT_VALUE [0] NEQA 0 
: i 037 THEN 
: 31 0380 BEGIN 
; 14 0381 IF RET_TYPE GTRU LIBSK_FMT_MAXSTRING ! Is it a number? 
: 316 0388 4 BEGIN 
: 317 0384 4 OUT_VALUE [OJ = .RET_NUMBER [0]; 
; 318 0385 4 IF TRET_TYPE EQL LIBSK_FMT_DATE OR 
; 19 0386 4 wenRe r= TvPE EQL LIBSK-FMT~PRIVILEGE 
3 @1 0388 4 p OUTAVALUE [1 = .RET_NUMBER [1]; ! Store second Longword 
; : 0390 END; 
: Q $393 '¢ 
: 6 $398 i Store string value if desired. 
: 355 $398 a 
: 329 a3? 1F NOT NULLPARAMETER (5) 
: 331 6 98 BEGIN 
: Q 399 COPY_STATUS = LIBSSCOPY_R_DX6 (.RET_LENGTH, RET_STRING, 
3; 33 0400 UT_ STRING (C0,0,0,03); 
: 334 401 IF NOT RULLPARAMETER (6) 
s Sue ret THEN 
; 36 403 4 BEGIN 
3 404 4 '¢ 
3 3 £05 ? ; Store result string Length. 
: 340 409 4 OUT_LEN [0] = .RET_LENGTH; 
; 44 4 : 4 IF COPY. STATUS EQCU LIBS. STRTRU 
: rh 0410 4 LIBSANALYZE_SDESC_R2 (OUT_STRING C0,0,0,0]; OUT_LEN [0}); 
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5 346 411 END; 
3 45 alg RETURN “COPY_STATUS; 
; ¢3 aid ELSE IF .RET_TYPE LEQU LIBSK_FMT_MAXSTRING 
3 rs as RETURN LIBS_INVARG; ! Only string value, but nothing to return it in 
3 21 0418 RETURN SSS$_NORMAL; ! Success 
: 3g 0420 1 END; ! End of routine LIBSGETDVI 
TITLE et a Get Device/Volume Information 
"IDENT \1-003\ 
.EXTRN LIBSSGETDVI, LIBSANALYZE _SDESC_R2 
“EXTRN LIBSGET_EF, LIBSFREE_ 
SEXTRN LIBSSCOPY_R bxé 
TRN LIBS _INVARG, LIBS_ sveves 
EXTRN LIBS~ WRONUMARG 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
OOFC 00000 .ENTRY LIBSGETDVI, Save R2 R3, Rs, RS,R6,R7 : 0169 
57 000000006 00 9€ 00002 MOVAB LIBS$ANALYZE_SDESC_R2, : 
5E CE 3 00009 MOVAB -540(SP), : 
50 ee 04 83 0000 SUBB3 #4, (AP). DIFF > 0316 
02 50 91 0001 CMPBs«éDdALFF, 2° : 
08 18 0001 BLEQU 1 ; 
50 000000006 &F pO 90017 MOVL #LIBS$_WRONUMARG, RO : 
03 6C 91 OOOTF 1$ CMPBs«CAP), #3 + 0322 
05 1F 00022 BLSSU 2 ; 
0c AC DS 900 4 TSTL  12(AP) ; 
04 12 00027 BNEQ : 
53 D4 900 9 2$: CLRL  DEVNAM_DSC_ADR > 0324 
1B 11 00028 BRB : 
OE AE 010E 8F BO 000 3$: MOVW #270, LCL_DEVNAM_DSC+2 + 0327 
50 0¢ AC DO 000 3 MOVL DEVICE_NAME, : 0330 
6 16 000 JSB PIBSANALYZE SDESC_R2 ; 
Oc AE 1 BO 00039 MOVW 1, LCL_DEVA : 
10 AE 38 D0 0003D MOVL 2, LCL~ DEVNAM- “DSC +4 : 
Of 5 41 BLBC  STR_STATUS, : 0331 
oc AE 9E 00044 MOVAB. LCL SEVNAR ‘pet, DEVNAM_DSC_ADR : 0 34 
000000006 00 Ai fe oooen chats #1 LTBSGET F ‘Sues 
gf 9%) EB : 5$ BLBS EF STATU ar : 0342 
53 pp 6 6b PUSHL DEVNAM 5°. ADR : 0358 
02 6¢ 1 00 CMPB_ ss (AP), : 0357 
1F 00058 BLSSU 7S : 
08 ac D5 5D TSTL BCAP) ; 
04 1 60 BNEQ $ : 
E D4 00062 7$ CLRL = =(SP) F 
04 11 00064 BRB 9$ : 
7E 08 BC 3C 6 66 8s MOVZWL @CHANNEL, -(SP) : 
10 AE DD 0006A 9$ PUSHL EVENT_FLAG ; 0356 
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50 000000006 


50 


Routine Base: 
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14 


18 


14 


1¢ 
14 


04 
000000006 


18 
04 
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-LIBSCODE 


oo o9o -9 000 $9 $9 8 9 09 WI 0" 9 09 9 9 9 | 9 S“GOITM NOT NWOOOO 
FOL OF — LOOC ON (OWN SOP OOMWUIM ON WN" OD “WO FOOD ODO TN --n- 
OCOoQOoooooooooooooooooooooooooooooooooooooooooooooo 
SOOOOSSCOSCOOOOOSOOOSSOSOSOSOOSOOOOOOOOOOOOSOSOOOOOOOOOOSOSoOO 
2 | “OOOO COOCOOSOSOSOOSOSOOSCOSOSCSOOOOCOSOSOOSOOOOOOOOOOOOOOOoOO 
~~ — 
PAM 


(RO) 


-NUMBER 
, #11 


> 
vo 
~ 


LENGTH, @OUT_L 
7_STATUS, sae STRTRU 


MOD AD” DOD - 2 DAK WD DO OO VU BMD RBODWAADD 


WOMWFEwWw> 
nv *'Us: > ae eee “ast near ‘Deter leer te mee Tr 2 +414 


OUTS 
ul IBSANALY SE Rp Ese _R2 


aouT_LE 
toby” STATUS, RO 
RET_TYPE, #8 
15$ 
#LIBS_INVARG, RO 
#1, RO 
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IBSGETOVI Get Device/Volume Information 16-Se AX-11 Bliss-32 V Pa 10 
eth LIBSGETDVI = Get Device/Volume Information 14-S$ i 198 99: 38: 8 LIBRTL.SRC (iacet bur. aS2; 37 . (5) 
; 356 be ! END ! End of module LIBSGETDVI 
: § 4 5 0 ELUDOM 
$ PSECT SUMMARY 
; Name Bytes Attributes 
: _LIBSCODE 268 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
; nesses Suhel § ssewcces Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$25S$DUA28:(SYSLIBISTARLET.L32;1 9776 7 0 581 00:00.7 
3 ~$255$DUA28:CLIBRTL.OBJIRTLLIB.L32;1 36 6 16 8 00:00.1 
: COMMAND QUALIFIERS 


PLISS/ENE CKO CE IELD, NET IAL .OPTINIZE) /MOTRACE/L 1891. 15811, JOSE TOVE/08.)-08J8 11 186E TOV MSRC$:LIBGETDVI/UPDATE=(ENHS$:LIBGETOVI 


Size: 268 code + 0 data bytes 
Run Time 00:05.1 

Fleeced Tae: 00:27.7 

Lines/CPU Min: 3296 
Lexemes/CPU-Min: 17671 

nenery © Used: 108 pages 

Compilation Complete 
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